use strict;
use KoeDownload;  # use KoeDownload;

my $dl = KoeDownload->new({
    url => 'hhttp://koebu.com/api/koe/8559e86572225f2eeba99659248b1fab7a05c90b'
});

print $dl->mp3."\n";

print $dl->screen_name."\n";
print $dl->gender."\n";

my $filename = '/tmp/koe_'.time().'.mp3';
$dl->save($filename);

print $dl->filename."\n";
if( -f $dl->filename ){
    print "save ok!\n";
}else{
    print "save faild\n";
}

__END__

$ prove t/test01.t
